DEFINE VARIABLE ptpart AS CHARACTER FORMAT "x(20)".
DEFINE VARIABLE ptabc  AS CHARACTER FORMAT "x(3)".
    


INPUT FROM VALUE("c:\qadguicli\qaddoc\pt_abc2.txt").
    


REPEAT ON ERROR UNDO, LEAVE:

   

  IMPORT DELIMITER " " ptpart ptabc NO-ERROR.
  
  FIND FIRST pt_mstr WHERE pt_part = ptpart EXCLUSIVE-LOCK NO-ERROR.
  
  IF AVAILABLE pt_mstr AND ptabc <> pt_abc THEN 
     /*DISP ptpart ptabc pt_pm_code pt_abc pt_desc1. */
      ASSIGN pt_abc = ptabc.


END.




INPUT CLOSE.
